home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1082.dms / q1082.adf / src.lzh / Fig / dir.c < prev    next >
C/C++ Source or Header  |  1991-07-18  |  848b  |  49 lines
  1. /* 
  2.  *    FIG : Facility for Interactive Generation of figures
  3.  *
  4.  *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  5.  *    November 1985.
  6.  *    1st revision: Mar 1988.
  7.  *
  8.  *    %W%    %G%
  9. */
  10. #include "fig.h"
  11.  
  12. extern char        *sys_errlist[];
  13. extern int        sys_nerr, errno;
  14.  
  15. extern char        directory[];
  16.  
  17. int
  18. change_directory(path)
  19. char    *path;
  20. {
  21.     if (path == NULL) return(0);
  22.     put_msg("Changing . . .");
  23.     if (chdir(path) == -1) {
  24.         put_err("Can not change to directory %s, : %s",
  25.         path, sys_errlist[errno]);
  26.         }
  27.     else {
  28.         print_directory();
  29.         }
  30.     return(1);
  31.     }
  32.  
  33. print_directory()
  34. {
  35.     extern char    *getwd();
  36.  
  37.     if (*directory == '\0') {
  38.         if (NULL == getwd(directory)) {
  39.         put_msg("%s", directory);       /* err msg is in directory */
  40.         *directory = '\0';
  41.         return;
  42.         }
  43.         else
  44.         put_msg(directory);
  45.         }
  46.     else
  47.         put_msg(directory);
  48.     }
  49.